120 45{dup mul exch dup mul add 1.0 exch sub} setscreen